home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / tcp / MCF_Buttons.lha / MCF_Buttons / Rexx / MCF_About.AMIRX next >
Encoding:
Text File  |  1998-01-26  |  2.1 KB  |  14 lines
  1. /* MCF_About.AMIRX
  2. \\ $VER: MCF_About.AMIRX 5.1 (22.11.97)
  3. //
  4. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  5. // Please mail any bug reports/comments to the above address with a subject
  6. \\ header of MCF.AMIRX.
  7. //
  8. \\  MUI GUI portion of script uses 1 port
  9. //      which is passed as an argument.
  10. \\
  11. // ** What to do with this file?
  12. \\ Put this script in AmIRC/Rexx
  13. */
  14. ;parse arg MUIPort;if ~show('p',MUIPort) then;do;MUIPort=upper(MUIPort);if ~show('p',MUIPort) then;do;"Say MUIRexx Port" MUIPort "not found. About - EOJ!";exit;end;end;Cenv=address();Options Results;PSscreen="";if 0=pos("AMIRC.",Cenv) then;MCFenv="AMIRC.1";else;do;MCFenv=Cenv;"INFO screen";PSscreen=result;if PSscreen='RESULT' then PSscreen="";end;APort="";do cntr=1 to 9;if ~show('p',"AMIRC."||cntr) then iterate cntr;APort="AMIRC."||cntr;cntr=9;end cntr;interpret "address" MUIPort;MUIA_Frame=0x8042ac64;MUIA_Window_DepthGadget=0x80421923;MUIA_Window_DragBar=0x8042045d;MUIA_Window_PublicScreen=0x804278e4;MUIA_Window_SizeGadget=0x8042e33d;MUIV_Frame_Text=0;FALSE=0;ATitle=getclip(MUIPort||"_Title");AVersion=getclip(MUIPort||"_Version");ACopyright=getclip(MUIPort||"_Copyright");AAuthor=getclip(MUIPort||"_Author");ADescription=getclip(MUIPort||"_Description");do cnt1=0 to 5;AboutText.cnt1="";end cnt1;AboutText.0="\n                       MCF About Window\n";if ATitle ~="" then AboutText.1="\n     Title:      " ATitle;if AVersion ~="" then AboutText.2="\n     Version:    " AVersion;if ACopyright ~="" then AboutText.3="\n     Copyright:  " ACopyright;if AAuthor ~="" then AboutText.4="\n     Author:     " AAuthor;if ADescription ~="" then AboutText.5="\n     Description:" ADescription||"\n\n";Window ID ABOUT ATTRS MUIA_Window_DepthGadget FALSE MUIA_Window_DragBar FALSE MUIA_Window_SizeGadget FALSE MUIA_Window_PublicScreen PSscreen;group;do cnt2=0 to 5;if AboutText.cnt2 ~="" then text TRANS ATTRS MUIA_Frame MUIV_Frame_Text label AboutText.cnt2;end cnt2;endgroup;group HORIZ;if APort ~="" then;do;space;button PRESS COMMAND '"SAY /Rx MCF_WWW"' PORT APORT LABEL "MCF HomePage";end;space;button PRESS COMMAND '"Window ID ABOUT CLOSE"' PORT MUIPort LABEL "Close";space;endgroup;endwindow;exit